(let ((r (eval-program (read-program "(+ 50 50)")))
      (a (eval-program (read-program "(+ 20 20) (+ 100 150)"))))
  (and ( = r 100)
       ( = a 250)))
